home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 8: LINUX Games / Linux Cubed Series 8 - LINUX Games.iso / games / x11 / rpg / crossfir.92 / crossfir / crossfire-0.92.5 / crossedit / Cnv / CnvFiles.c < prev    next >
C/C++ Source or Header  |  1996-07-24  |  3KB  |  142 lines
  1. #include <Cnv.h>
  2. #include <Posix.h>
  3.  
  4. /**********************************************************************
  5.  * private 
  6.  **********************************************************************/
  7.  
  8. static void entryCb(Widget w,XtPointer client,XtPointer call)
  9. {
  10.   CnvFiles self = (CnvFiles)client;
  11.   char path[PATH_MAX+1];
  12.  
  13.   /* entry = XawSimpleMenuGetActiveEntry(w); */
  14.   sprintf(path,"%s/%s",self->directory,XtName(w));
  15.   (*self->proc)(self->client,path);
  16. }
  17.  
  18. static void Malfunction(CnvFiles self,String msg)
  19. {
  20.   char buf[BUFSIZ];
  21.  
  22.   sprintf(buf,"%s %s",msg,self->directory);
  23.   CnvWarn(self->shell,buf);
  24.   XtVaCreateManagedWidget
  25.     ("No Data",smeBSBObjectClass,self->shell,
  26.      NULL);
  27. }
  28.  
  29. /**********************************************************************
  30.  * public 
  31.  **********************************************************************/
  32.  
  33. /*
  34.  * member   :
  35.  * name     : resource-name
  36.  * app      : application level shell-widget
  37.  * directory: directory to read menu from 
  38.  * proc     : callback to be called
  39.  * client   : 
  40.  * return   : gives created menu
  41.  */
  42. CnvFiles CnvFilesCreate(String name,
  43.             Widget parent,
  44.             CnvFilesProc proc,
  45.             XtPointer client,
  46.             String directory)
  47. {
  48.     CnvFiles self;
  49.  
  50.     self = (CnvFiles)XtMalloc(sizeof(struct CnvFiles));
  51.     self->shell = NULL;
  52.     self->name = XtNewString(name);
  53.     self->proc = proc;
  54.     self->client = client;
  55.     CnvFilesRescan(self,name,parent,directory);
  56.     return self;
  57. }
  58.  
  59. /*
  60.  * member: remove CnvFiles packege
  61.  * return: status
  62.  */
  63. void CnvFilesDestroy(CnvFiles self)
  64. {
  65.   XtDestroyWidget(self->shell);
  66.   XtFree(self->name);
  67.   self->shell = NULL;
  68. }
  69.  
  70. /*
  71.  * member   : make menu from directory 
  72.  * directory: absolute directoryname to scan
  73.  * return   : gives created menu
  74.  */
  75. Widget CnvFilesRescan(CnvFiles self,String name,Widget parent,
  76.               String directory)
  77. {
  78.   char buf[BUFSIZ];
  79.   char path[PATH_MAX+1];
  80.   DIR *dir;
  81. #ifdef NeXT
  82.   struct direct *dirent;
  83. #else
  84.   struct dirent *dirent;
  85. #endif
  86.   struct stat statbuf;
  87.   Widget entry;
  88.   int cnt = 0;
  89.  
  90.   /*** create shell ***/
  91.   if(self->shell != NULL) XtDestroyWidget(self->shell);
  92.   self->shell = XtVaCreatePopupShell
  93.     (name,simpleMenuWidgetClass,parent,
  94.      NULL);
  95.  
  96.   /*** can read directory ? ***/
  97.   pathcpy(self->directory,directory);
  98.   if(access(self->directory,R_OK | X_OK) == -1) {
  99.     Malfunction(self,"has no acces");
  100.     return NULL;
  101.   }
  102.  
  103.   /*** open dir ***/
  104.   if((dir = opendir(self->directory)) == NULL) {
  105.     Malfunction(self,"cannot open");
  106.     return NULL;
  107.   } 
  108.  
  109.   /*** make menu ***/
  110.   while((dirent = readdir(dir)) != NULL) {
  111.     if(!strcmp(dirent->d_name,".") || !strcmp(dirent->d_name,"..")) 
  112.       continue;
  113.     sprintf(path,"%s/%s",directory,dirent->d_name);
  114.     if(stat((char*)path,&statbuf) == -1) {
  115.       sprintf(buf,"%s cannot stat",path);
  116.       CnvWarn(self->shell,buf);
  117.       return NULL;      
  118.     }
  119.     if( S_ISREG(statbuf.st_mode) && !access(path, R_OK) ) {
  120.       /*** create menu selection ***/
  121.       entry = XtVaCreateManagedWidget
  122.     (dirent->d_name,smeBSBObjectClass,self->shell,
  123.      NULL);
  124.       XtAddCallback(entry,XtNcallback,entryCb,(XtPointer)self);
  125.       cnt++;
  126.     }
  127.   }
  128.   closedir(dir);
  129.   if(!cnt) {
  130.     Malfunction(self,"empty");
  131.     return NULL;
  132.   }
  133.   return self->shell;
  134. }
  135.  
  136. /*** end of CnvFiles.c ***/
  137.  
  138.  
  139.  
  140.  
  141.  
  142.